00100		DIMENSION V(4000),Q(4000),R(128)
00200		EQUIVALENCE (JT,R(19)),(JF,R(128))
00300	C JF IS FLAG FOR NEW PACKING MODE (=-999 IF NEW, =>0 IF OLD)
00400	10	FORMAT(I)
00500	11	FORMAT(F13.3)
00600		CALL GETEXT('AAAAA','MS')
00700		CALL EXTIN(R,128)
00800		CALL EXTIN(V,JT)
01000		CALL STUFIT(V,JT)
04300	C DONE NOW
04400	1	JF=-999
04420		CALL PUTEXT('ZZZZZ','MS')
04450		CALL EXTOUT(R,128)
04500		CALL EXTOUT(V,JT)
04600		CALL FINEXT
04700		PAUSE
04800	
04900	C NOW GET IT ALL BACK
05000	100	CALL GETEXT('ZZZZZ','MS')
05100		CALL EXTIN(R,128)
05200		CALL EXTIN(Q,JT)
05400	20	CALL UNSTUF(Q,V,JT)
08700		JF=0
08750		CALL PUTEXT('XXXXX','MS')
08800		CALL EXTOUT(R,128)
08900		CALL EXTOUT(V,JT)
09000		CALL FINEXT
09100	
09200		END